home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 21 / CU Amiga Magazine's Super CD-ROM 21 (1998)(EMAP Images)(GB)[!][issue 1998-04].iso / CUCD / CDROM / RexxCD / Install_RexxCD < prev    next >
Encoding:
Text File  |  1996-06-24  |  3.3 KB  |  171 lines
  1. ;
  2. ;    Name        :    Install_RexxCD
  3. ;    Created        :    23/06/96
  4. ;    Last change    :    24/06/96
  5. ;
  6. ;    Programmer    :    Urban Lindeskog
  7. ;    Organization    :    ProNotion SWDG
  8. ;
  9. ;
  10.  
  11.  
  12. ;
  13. ;
  14. ;    Ask all the questions
  15. ;
  16. ;
  17. (complete 0)
  18.  
  19. (set @default-dest
  20.     (askdir
  21.         (prompt "Where do you want the RexxCD program to be installed?\n\nIf you want RexxCD into a separate directory, you have to create it now.")
  22.         (help @askdir-help)
  23.         (default @default-dest)
  24.     )
  25. )
  26.  
  27. (set #htmlpath
  28.     (askdir
  29.         (prompt "Where do you want the RexxCD html documentation to be installed?\nA directory called 'html' will be created there.")
  30.         (help @askdir-help)
  31.         (default @default-dest)
  32.     )
  33. )
  34.  
  35. (set #tocpath
  36.     (askdir
  37.         (prompt "Where do you want the Table Of Contents files to be stored?\A directory called 'discs' will be created there.")
  38.         (help @askdir-help)
  39.         (default @default-dest)
  40.     )
  41. )
  42.  
  43. (set #rexxpath
  44.     (askdir
  45.         (prompt "Where do you want the example ARexx programs to be stored?\A directory called 'rexx' will be created there.")
  46.         (help @askdir-help)
  47.         (default @default-dest)
  48.     )
  49. )
  50.  
  51. (set #devname
  52.     (askstring
  53.         (prompt "Please enter the name of your SCSI device driver")
  54.         (help "Usual device names are scsi.device, z3scsi.device or 2nd_scsi.device\nConsult your SCSI controller documentation if you are unsure.")
  55.         (default "scsi.device")
  56.     )
  57. )
  58.  
  59. (set #devunit
  60.     (asknumber
  61.         (prompt "Please enter the unit number of your CD drive")
  62.         (help "Unit numbers often range from 0-7,\n Unit number 7 usually is occupied by the SCSI controller.")
  63.         (default 4)
  64.     )
  65. )
  66.  
  67.  
  68. ;
  69. ;    Start with the installation
  70. ;
  71. ;
  72.  
  73. (set #setfile(tackon @default-dest "RexxCD.settings"))
  74. (set #tocpath(tackon #tocpath "discs"))
  75. (set #htmlpath(tackon #htmlpath "html"))
  76. (set #rexxpath(tackon #rexxpath "rexx"))
  77.  
  78. (copyfiles
  79.     (prompt "Which language catalogs do you want to install?")
  80.     (help "The 'catalog' files enables RexxCD to operate in different languages.\nHere you can choose what languages to install.")
  81.     (source "Catalogs")
  82.     (dest "locale:Catalogs")
  83.     (all)
  84.     (infos)
  85.     (confirm 'average')
  86. )
  87.  
  88. (complete 10)
  89.  
  90. (copyfiles
  91.     (prompt "Copying RexxCD...")
  92.     (help @copyfiles-help)
  93.     (source "RexxCD")
  94.     (dest @default-dest)
  95.     (files)
  96.     (infos)
  97. )
  98.  
  99. (complete 20)
  100.  
  101. (copyfiles
  102.     (prompt "Copying the RexxCD html documentation...")
  103.     (help @copyfiles-help)
  104.     (source "html")
  105.     (dest #htmlpath)
  106.     (infos)
  107.     (all)
  108. )
  109.  
  110. (complete 50)
  111.  
  112. (copyfiles
  113.     (prompt "Copying the ARexx program examples...")
  114.     (help @copyfiles-help)
  115.     (source "rexx")
  116.     (dest #rexxpath)
  117.     (infos)
  118.     (all)
  119. )
  120.  
  121. (complete 60)
  122.  
  123. (copyfiles
  124.     (prompt "Copying the Table Of Contents files...")
  125.     (help @copyfiles-help)
  126.     (source "discs")
  127.     (dest #tocpath)
  128.     (infos)
  129.     (all)
  130. )
  131.  
  132. (complete 90)
  133.  
  134. (textfile
  135.     (dest #setfile)
  136.  
  137.     (append "APPLICATION.SCREEN=Workbench\n")
  138.     (append "SETTINGS.REPEAT=1\n")
  139.     (append "SETTINGS.CREATEICONS=42\n")
  140.     (append "SETTINGS.ALLOWMACROS=0\n")
  141.  
  142.     (append "SETTINGS.TOCPATH=")
  143.     (append #tocpath)
  144.     (append "\n")
  145.  
  146.     (append "BUTTON.1=\n")
  147.     (append "BUTTON.2=\n")
  148.     (append "BUTTON.3=\n")
  149.     (append "BUTTON.4=\n")
  150.     (append "BUTTON.5=\n")
  151.     (append "BUTTON.6=\n")
  152.     (append "BUTTON.7=\n")
  153.  
  154.     (append "DEVICE.NAME=")
  155.     (append #devname)
  156.     (append "\n")
  157.  
  158.     (append "DEVICE.UNIT=")
  159.     (append #devunit)
  160.     (append "\n")
  161.  
  162.     (append "FONT.TEXTFONT.NAME=topaz.font\n")
  163.     (append "FONT.TEXTFONT.SIZE=8\n")
  164.     (append "FONT.DIGITFONT.NAME=topaz.font\n")
  165.     (append "FONT.DIGITFONT.SIZE=8\n")
  166.     (append "FONT.LYRICFONT.NAME=topaz.font\n")
  167.     (append "FONT.LYRICFONT.SIZE=8\n")
  168. )
  169.  
  170. (complete 100)
  171.